home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 July / EnigmA AMIGA RUN 20 (1997)(G.R. Edizioni)(IT)[!][issue 1997-07 & 08][EAR-CD IV].iso / earcd / util / rexx / sended.lha / SendED next >
Text File  |  1997-04-27  |  3KB  |  93 lines
  1. /**************************************************/
  2. /* Opens a C:Ed on (FinalWriter-)PublicScreen     */
  3. /* SendEd (c) 1997 by Sebastian Huebner           */
  4. /*                 cyco@lili.uni-bielefeld.de     */
  5. /* This Script ist EMAILWARE !!       V 1.01      */
  6. /**************************************************/
  7.  
  8. filenamefile = "ENV:SendED-File"      /* store filename here */
  9.                                       /* CHANGE THIS TO      */
  10.                                       /*   "ENVARC:" TO SAVE */
  11.                                       /*         PERMANENTLY */
  12. stddrawer    = "RAM:"                 /* fallback drawer     */
  13. stdfile      = "Untitled"             /* fallback filename   */
  14. windowpos    = "40/30/560/170"        /* window-position     */
  15.                                       /* ADJUST TO YOUR      */
  16.                                       /*         SCREEN SIZE */
  17. pubscreen    = "FinalWriterPubScreen" /* public screen       */
  18.  
  19. DEBUGLEVEL   = 0                      /* no debug output     */
  20.                                       /* ONLY AVAILABLE ON   */
  21.                                       /*   FINAL WRITER HOST */
  22.  
  23. IF (DEBUGLEVEL > 0 & UPPER(SUBSTR(ADDRESS(),1,7)) = "FINALW.") THEN
  24.    ShowMessage 1 0 '"-- Info --" "DEBUGLEVEL: ' || DEBUGLEVEL || '" "HOST: ' || ADDRESS() || '" "OK" "" ""'
  25.  
  26. drawer=SetOldDrawer()
  27. file=SetOldFile()
  28.  
  29. IF (DEBUGLEVEL > 0 & UPPER(SUBSTR(ADDRESS(),1,7)) = "FINALW.") THEN
  30.   ShowMessage 1 0 '"-- Arguments --" "Drawer: ' || drawer || '" "File: ' || file || '" "OK" "" ""'
  31.  
  32. ADDRESS COMMAND 'Echo `Requestfile DRAWER "' || drawer || '" FILE "' || file || '" PUBSCREEN FinalWriterPubScreen` >' filenamefile
  33.  
  34. filename=ReadFile(filenamefile)
  35. file=GetFile(filename)
  36. IF (file ~= "") THEN DO
  37.   windowtit="ED: " || file
  38.   IF (DEBUGLEVEL > 0 & UPPER(SUBSTR(ADDRESS(),1,7)) = "FINALW.") THEN
  39.     ShowMessage 1 0 '"-- Info --" "WindowTitle:" ">> ' || windowtit || ' <<" "OK" "" ""'
  40.   ADDRESS COMMAND "Run C:Ed WINDOW ""CON:" || windowpos || "/" || windowtit || "/SCREEN" || pubscreen || "/CLOSE"" " || filename
  41. END
  42.  
  43. EXIT
  44.  
  45. /*--- Funktionen ---*/
  46. GetPath:
  47. PARSE ARG pathfile
  48. pos=LASTPOS("/",pathfile)
  49. IF (pos > 0) THEN
  50.   RETURN(SUBSTR(pathfile,1,pos))
  51. pos=LASTPOS(":",pathfile)
  52. IF (pos > 0) THEN
  53.   RETURN(SUBSTR(pathfile,1,pos))
  54. RETURN("")
  55.  
  56. GetFile:
  57. PARSE ARG pathfile
  58. pos=LASTPOS("/",pathfile)
  59. IF (pos > 0) THEN
  60.   IF (LENGTH(pathfile) > pos) THEN
  61.     RETURN(SUBSTR(pathfile,pos+1))
  62.   ELSE
  63.     RETURN("")
  64. pos=LASTPOS(":",pathfile)
  65. IF (pos > 0) THEN
  66.   IF (LENGTH(pathfile) > pos) THEN
  67.     RETURN(SUBSTR(pathfile,pos+1))
  68.   ELSE
  69.     RETURN("")
  70. RETURN(pathfile)
  71.  
  72. SetOldDrawer:      /* Versucht, alten Pfad zu geben */
  73. d=GetPath(ReadFile(filenamefile))
  74. IF (d = "") THEN
  75.   d=stddrawer
  76. RETURN(d)
  77.  
  78. SetOldFile:        /* Versucht, altes File zu geben */
  79. f=GetFile(ReadFile(filenamefile))
  80. IF (f = "") THEN
  81.   f=stdfile
  82. RETURN(f)
  83.  
  84. ReadFile:          /* eine Zeile einlesen und zurueckgeben */
  85. PARSE ARG fn
  86. line=""
  87. IF OPEN("infile",fn,"READ") THEN DO
  88.     line=READLN("infile")
  89.     CALL CLOSE("infile")
  90.   END
  91. RETURN(line)
  92.  
  93.